(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     41345,        999]
NotebookOptionsPosition[     37872,        899]
NotebookOutlinePosition[     38254,        915]
CellTagsIndexPosition[     38211,        912]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Shaft", "Section",
 CellChangeTimes->{{3.52260439790625*^9, 3.522604398390625*^9}}],

Cell[BoxData[
 RowBox[{"<<", "C:\\\\Hopsan\\Compgen\\CompgenNG.mx"}]], "Input",
 CellChangeTimes->{{3.5772037650720577`*^9, 3.5772037650780582`*^9}, {
  3.611474457184202*^9, 3.611474523938877*^9}, {3.6114745588913717`*^9, 
  3.61147456057154*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"path", "=", 
   RowBox[{"ToFileName", "[", 
    RowBox[{"{", 
     RowBox[{
     "\"\<C:\>\"", ",", "\"\<HopsanTrunk\>\"", ",", 
      "\"\<ComponentLibraries\>\"", ",", "\"\<defaultLibrary\>\"", ",", 
      "\"\<Mechanic\>\"", ",", "\"\<Rotational\>\""}], "}"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5757727777685804`*^9, 3.575772792541806*^9}, {
   3.5757728423954945`*^9, 3.5757728498367076`*^9}, {3.57577333888545*^9, 
   3.5757733706315055`*^9}, 3.5757734316206255`*^9, 3.6031909973287797`*^9, 
   3.6057717887213297`*^9, {3.605771829393656*^9, 3.605771830929744*^9}, 
   3.6058530990363216`*^9, {3.621138851005574*^9, 3.621138863716845*^9}, {
   3.626686112671085*^9, 3.6266861209310846`*^9}, {3.6273758738899097`*^9, 
   3.627375907312579*^9}, {3.6278060251438417`*^9, 3.627806031567667*^9}}],

Cell[TextData[{
 "Shaft with torsional spring implemented using bilateral delay lines.\n\n",
 Cell[GraphicsData["Metafile", "\<\
CF5dJ6E]HGAYHf4PEfU^I6mgLb15CDHPAVmbKF5d0@0000H@0@000?@0003YoOoo1okoodd200010P00
00000000002:1`006P400215CDH0004040H001T000030000@`0006`000000000EPD00003003R0@00
3`40000000000000000006IJ1`1E8P@0B@1^06/0L`1S0640L01U0200<00^03@0>00^0380801b03T0
>00a03T0800X0440M@1W0200<@0d0200<P0`0340<@0Y0000J@1^06/0L`1S0640L01U02d0H`1/06T0
L01R06l0H@1b06@0;@1U07P0L01_0780M00^06D0K@1V000000000140000<0000200000T0000@0000
RPL001X1000;0000400003H000070000AP0002P0000L0000Df=bIFE^?C4c=SIh=cHhL7P/83@h<WPb
=c5]KDH0002D0`00R0<004AbHGMYKVLm<2h`N3Hh>34h>34`<CTi<SHc=cPg>C4a=S0g<CHd<CDd<3@e
=cP`>34b<CTc=cTi=c@i<cHi<3Pg<CPe<CHi>3Hb=30d>3Df<cDg>38c>CHg<38`=cPd<S0e>3@g=34`
<S<f>C0c=cPg>CTd<3Lh<3@f=C@i>38g<3Ph<cHh>C@d<S<c=3Li>C4i=30b>34h=C4e=CHi=C@f<3Hc
<3<b<3Hd<S8`=3Hi<c0b>CPc=SPd<S<d<S@g=C<e>3Ti>3Dh=c4g<c0g=c<g=C@i>3@d<C4f<S@a>3Pf
=CLg>3Di>C0g=cPc<CHa=30d<c@d=3@`<CD`<34a=SPi=C@g=S4f=SPi<3Hi=c@f<c4g<CHb>C4d<3<f
=SHh=S@e<CDb>C@c<C0i>3Hh>C8a=S4c=CDd<cHi=3Pa<C0`<34c=SLe>3@i=CD`=3Lg>3@i<C0c=3H`
=SDe>3Pe=CDd=3Hf=C0g>C<a=STh=CHe<3<a<SHc>C4d=c0i=STe<3Hb>3<e=SHh=STd<SL`=STh>30g
<SPi<S4i<C8g=STe=3Ld>3T`>C4i>3Hb>CP`<cTh=CPb=S@b=SDh>CHg>30h<C4h=3<d<cTe<S0h=S@i
<C<f=CDc<S0g<cPf>C<f>3<i=38d=c8a<C<g=c@h=CLb<SPh=SD`<3H`<3<b<3Lb=SPe=S<b=3Hh>3Te
<cD`>C0a>3@c=c4d=C4c>CDg<cPb<SDd>CHd<c0e=STi=c8`<CDg>3Db<cLb>3Da<34e=S<h=c8g=3Pd
>3Ph>C0h=S<c>3Ti>38c<C8d=c@g>34c=S4f=CHf=C<`=S4`=S<h<34d<SPh=3Tc<CDa<SDg=CPg=c8d
<S<d=3Tf=cPc<C4i=S@f=CLa<3L`<CL`=C8i<C4b=S@e<cPa=3@g=SHe=SDh=C4i=S4g=CDi<CHf<3Ta
>30i>3Li>3Pe=cLi=cHe<c8h=30e<SLa>CDc<3@`=3L`=3Da<3<i=SLf<CDd=SDe<CLf>C@i<c4`<38e
<CTa<CLa=S<g=3Hi<S8b<3Hf=3De=CTi>C<h>3Ti<3Db=C8`>3Tc=cPc<S8g=38d=cHc=C8d<3Hf=c8c
<CLe<3Hi<3@g=CDb<S4h=C0c>CLe<c0b<cHd<c@d<CTa=38i=SDa>C@g<3Le>CLd>3<g>CLg=3Hg=3Dh
=SPb>3P^<71h;20`;S1h<2h`KFdW00006000004000000000oooo0000000U000030000040000C0000
30000080001O0000>0000080000h0000000003P000000000024102D0000000000000000000000000
000002D0000<00000P0003X0000<0000kP0003/0000800006`000100001g1`004`0003H0000@0000
4`0001<0000f0000400001<000070@00=P000100001g1`001`4003d000080000?00000P0000o0000
60000>Wmool7o_ooC@800042000U000030000000080X000030000040000U0000300000L0080X0000
30000080000>000050000000000@00005000
\>"], "Graphics",
  ImageSize->{187.54545206274875`, 25.69115781681489},
  ImageMargins->0]
}], "Text",
 CellChangeTimes->{{3.6327763221227007`*^9, 3.632776327868029*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"domain", "=", "\"\<Mechanic\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"displayName", "=", "\"\<RotShaft\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"brief", "=", "\"\<Rotational shaft with torsional spring\>\""}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"componentType", "=", "\"\<ComponentC\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"author", "=", "\"\<Petter Krus <petter.krus@liu.se>\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "affiliation", " ", "=", " ", 
   "\"\<Division of Fluid and Mechatronic Systems, Link\[ODoubleDot]ping \
University\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetFilenames", "[", 
   RowBox[{"path", ",", "domain", ",", "displayName"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ResetComponentVariables", "[", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Date", "[", "]"}]}], "Input",
 CellChangeTimes->{{3.5137112151875*^9, 3.513711217109375*^9}, {
   3.51378596903125*^9, 3.513785980671875*^9}, 3.515394539753217*^9, {
   3.515775693875*^9, 3.5157757050625*^9}, {3.517048046727305*^9, 
   3.51704806093043*^9}, 3.51707206725*^9, {3.5176530686834764`*^9, 
   3.51765311057437*^9}, {3.517673126703125*^9, 3.517673126796875*^9}, {
   3.5177214423487377`*^9, 3.517721453114225*^9}, {3.5177222281793466`*^9, 
   3.517722236008023*^9}, {3.5192815953125*^9, 3.5192816093125*^9}, {
   3.5209603410625*^9, 3.52096034128125*^9}, {3.54985636715625*^9, 
   3.5498563754375*^9}, 3.5758034074886527`*^9, {3.6065788085193233`*^9, 
   3.606578811761509*^9}, 3.612446592273651*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "2016", ",", "4", ",", "16", ",", "15", ",", "52", ",", 
   "4.8153659`8.435204271229262"}], "}"}]], "Output",
 CellChangeTimes->{3.627806244144229*^9, 3.62780656199576*^9, 
  3.638778950472694*^9, 3.638779129023547*^9, 3.638786039566551*^9, 
  3.643953425588278*^9, 3.643959123754545*^9, 3.669803524857397*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"inputParameters", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "Ks", ",", "1000.", ",", "double", ",", "\"\<Nm/rad\>\"", ",", 
       "\"\<Spring constant\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "alpha", ",", "0.1", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<numerical damping\>\""}], "}"}]}], "\[IndentingNewLine]", "}"}]}],
   ";"}]], "Input",
 CellChangeTimes->{{3.519318796546875*^9, 3.519318804953125*^9}, {
   3.54978019078125*^9, 3.549780199734375*^9}, 3.54985607496875*^9, {
   3.549856275109375*^9, 3.549856289484375*^9}, {3.571932894868863*^9, 
   3.571932896694066*^9}, {3.638778935019149*^9, 3.6387789364622927`*^9}, {
   3.638786017359331*^9, 3.6387860192285175`*^9}, 3.6698035392534933`*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fak", "=", 
   FractionBox["1", 
    RowBox[{"1", "-", "alpha"}]]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Zexpr", "=", 
   RowBox[{"Ks", " ", "fak", " ", "mTimestep"}]}], ";"}]}], "Input",
 CellChangeTimes->{
  3.519317664515625*^9, 3.549780434484375*^9, 3.549856941265625*^9, {
   3.6439591215574193`*^9, 3.6439591217674313`*^9}, 3.6698035104774857`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"initialExpressions", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"cmr1", "==", 
      RowBox[{"tormr1", "-", 
       RowBox[{"Zexpr", " ", "wmr1"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"cmr2", "==", 
      RowBox[{"tormr2", "-", 
       RowBox[{"Zexpr", " ", "wmr2"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"cmr1f", "==", "tormr1"}], ",", "\[IndentingNewLine]", 
     RowBox[{"cmr2f", "==", "tormr2"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.519281698359375*^9, 3.5192817149375*^9}, {
   3.5719328762892303`*^9, 3.571932891156057*^9}, {3.627806535651013*^9, 
   3.62780653611104*^9}, 3.62780657814986*^9, 3.638779119221567*^9}],

Cell["\<\
constantParameters = {
   {alpha, 0.3, double, \"\", \"numerical damping\"}
   };\
\>", "Text",
 CellChangeTimes->{
  3.549780219859375*^9, {3.5719329023256764`*^9, 3.571932903339678*^9}, 
   3.6387860230478992`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"nodeConnections", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"MechanicRotCnode", "[", 
      RowBox[{"mr1", ",", "0.", ",", "0.", ",", "\"\<mechanical node 1\>\""}],
       "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"MechanicRotCnode", "[", 
      RowBox[{"mr2", ",", "0.", ",", "0.", ",", "\"\<mechanical node 2\>\""}],
       "]"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.519281679328125*^9, 3.519281686671875*^9}, {
  3.51931795584375*^9, 3.519318001453125*^9}, {3.519318130546875*^9, 
  3.519318136109375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"localExpressions", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"cmr10", "==", 
      RowBox[{"cmr2", "+", 
       RowBox[{"2", " ", "Zexpr", " ", "wmr2"}]}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"cmr20", "==", 
      RowBox[{"cmr1", "+", 
       RowBox[{"2", " ", "Zexpr", " ", "wmr1"}]}]}]}], "\[IndentingNewLine]", 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.47858332371875*^9, 3.478583443984375*^9}, {
   3.478596512125*^9, 3.478596630296875*^9}, {3.47859673825*^9, 
   3.4785967756875*^9}, {3.478596964234375*^9, 3.478596992640625*^9}, 
   3.478597029796875*^9, {3.478600289875*^9, 3.47860030565625*^9}, {
   3.51582105284556*^9, 3.51582105678306*^9}, {3.5159004728175173`*^9, 
   3.515900475551874*^9}, {3.5159009659499717`*^9, 3.515900975043605*^9}, {
   3.5159024812862654`*^9, 3.5159025043018904`*^9}, {3.5167064051243*^9, 
   3.516706412796175*^9}, {3.516818175265625*^9, 3.51681819540625*^9}, {
   3.516818378453125*^9, 3.516818390015625*^9}, {3.5192897721875*^9, 
   3.51928977840625*^9}, {3.519317548234375*^9, 3.51931754925*^9}, {
   3.51931775690625*^9, 3.51931776296875*^9}, {3.571932929937725*^9, 
   3.5719329376597385`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"expressions", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"cmr1f", "==", 
      RowBox[{
       RowBox[{"alpha", " ", "cmr1f"}], " ", "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "alpha"}], ")"}], " ", "cmr10"}]}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"cmr2f", "==", 
      RowBox[{
       RowBox[{"alpha", " ", "cmr2f"}], " ", "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "alpha"}], ")"}], " ", "cmr20"}]}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"cmr1", "==", "cmr1f"}], ",", "\[IndentingNewLine]", 
     RowBox[{"cmr2", "==", "cmr2f"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Zcmr1", "==", "Zexpr"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Zcmr2", "==", "Zexpr"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.47858332371875*^9, 3.478583443984375*^9}, {
   3.478596512125*^9, 3.478596630296875*^9}, {3.47859673825*^9, 
   3.4785967756875*^9}, {3.478596964234375*^9, 3.478596992640625*^9}, 
   3.478597029796875*^9, {3.478600289875*^9, 3.47860030565625*^9}, {
   3.51582105284556*^9, 3.51582105678306*^9}, {3.5159004728175173`*^9, 
   3.515900475551874*^9}, {3.5159009659499717`*^9, 3.515900975043605*^9}, {
   3.5159024812862654`*^9, 3.5159025043018904`*^9}, {3.5167064051243*^9, 
   3.516706412796175*^9}, {3.516818200453125*^9, 3.5168182011875*^9}, {
   3.516818238359375*^9, 3.5168182486875*^9}, {3.51681829715625*^9, 
   3.516818360484375*^9}, 3.516818397609375*^9, {3.519289677296875*^9, 
   3.519289711046875*^9}, {3.5193175181875*^9, 3.5193175199375*^9}, {
   3.519317920234375*^9, 3.519317921890625*^9}, {3.571932940186943*^9, 
   3.57193295539697*^9}, {3.6698034887988625`*^9, 3.669803491799077*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Compgen", "[", "file", "]"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr1", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "Ks"}],
  SequenceForm["IE", $CellContext`cmr1, "DV", $CellContext`Ks],
  Editable->False]], "Print",
 CellChangeTimes->{3.669803525193611*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr1", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "alpha"}],
  SequenceForm["IE", $CellContext`cmr1, "DV", $CellContext`alpha],
  Editable->False]], "Print",
 CellChangeTimes->{3.6698035251946106`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr1", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "tormr1"}],
  SequenceForm["IE", $CellContext`cmr1, "DV", $CellContext`tormr1],
  Editable->False]], "Print",
 CellChangeTimes->{3.6698035251966114`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr1", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "thetamr1"}],
  SequenceForm["IE", $CellContext`cmr1, "DV", $CellContext`thetamr1],
  Editable->False]], "Print",
 CellChangeTimes->{3.6698035251996126`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr1", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "wmr1"}],
  SequenceForm["IE", $CellContext`cmr1, "DV", $CellContext`wmr1],
  Editable->False]], "Print",
 CellChangeTimes->{3.6698035252026167`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr1", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "cmr1"}],
  SequenceForm["IE", $CellContext`cmr1, "DV", $CellContext`cmr1],
  Editable->False]], "Print",
 CellChangeTimes->{3.669803525203618*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr1", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "Zcmr1"}],
  SequenceForm["IE", $CellContext`cmr1, "DV", $CellContext`Zcmr1],
  Editable->False]], "Print",
 CellChangeTimes->{3.669803525205619*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr1", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "eqInertiamr1"}],
  SequenceForm["IE", $CellContext`cmr1, "DV", $CellContext`eqInertiamr1],
  Editable->False]], "Print",
 CellChangeTimes->{3.66980352520762*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr1", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "tormr2"}],
  SequenceForm["IE", $CellContext`cmr1, "DV", $CellContext`tormr2],
  Editable->False]], "Print",
 CellChangeTimes->{3.6698035252096214`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr1", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "thetamr2"}],
  SequenceForm["IE", $CellContext`cmr1, "DV", $CellContext`thetamr2],
  Editable->False]], "Print",
 CellChangeTimes->{3.669803525211623*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr1", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "wmr2"}],
  SequenceForm["IE", $CellContext`cmr1, "DV", $CellContext`wmr2],
  Editable->False]], "Print",
 CellChangeTimes->{3.669803525213623*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr1", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "cmr2"}],
  SequenceForm["IE", $CellContext`cmr1, "DV", $CellContext`cmr2],
  Editable->False]], "Print",
 CellChangeTimes->{3.669803525216626*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr1", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "Zcmr2"}],
  SequenceForm["IE", $CellContext`cmr1, "DV", $CellContext`Zcmr2],
  Editable->False]], "Print",
 CellChangeTimes->{3.6698035252196274`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr1", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "eqInertiamr2"}],
  SequenceForm["IE", $CellContext`cmr1, "DV", $CellContext`eqInertiamr2],
  Editable->False]], "Print",
 CellChangeTimes->{3.669803525221629*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr2", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "Ks"}],
  SequenceForm["IE", $CellContext`cmr2, "DV", $CellContext`Ks],
  Editable->False]], "Print",
 CellChangeTimes->{3.669803525223632*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr2", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "alpha"}],
  SequenceForm["IE", $CellContext`cmr2, "DV", $CellContext`alpha],
  Editable->False]], "Print",
 CellChangeTimes->{3.6698035252256317`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr2", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "tormr1"}],
  SequenceForm["IE", $CellContext`cmr2, "DV", $CellContext`tormr1],
  Editable->False]], "Print",
 CellChangeTimes->{3.6698035252276325`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr2", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "thetamr1"}],
  SequenceForm["IE", $CellContext`cmr2, "DV", $CellContext`thetamr1],
  Editable->False]], "Print",
 CellChangeTimes->{3.6698035252306356`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr2", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "wmr1"}],
  SequenceForm["IE", $CellContext`cmr2, "DV", $CellContext`wmr1],
  Editable->False]], "Print",
 CellChangeTimes->{3.669803525233638*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr2", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "cmr1"}],
  SequenceForm["IE", $CellContext`cmr2, "DV", $CellContext`cmr1],
  Editable->False]], "Print",
 CellChangeTimes->{3.6698035252356386`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr2", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "Zcmr1"}],
  SequenceForm["IE", $CellContext`cmr2, "DV", $CellContext`Zcmr1],
  Editable->False]], "Print",
 CellChangeTimes->{3.6698035252376585`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr2", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "eqInertiamr1"}],
  SequenceForm["IE", $CellContext`cmr2, "DV", $CellContext`eqInertiamr1],
  Editable->False]], "Print",
 CellChangeTimes->{3.669803525239643*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr2", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "tormr2"}],
  SequenceForm["IE", $CellContext`cmr2, "DV", $CellContext`tormr2],
  Editable->False]], "Print",
 CellChangeTimes->{3.669803525241643*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr2", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "thetamr2"}],
  SequenceForm["IE", $CellContext`cmr2, "DV", $CellContext`thetamr2],
  Editable->False]], "Print",
 CellChangeTimes->{3.6698035252436438`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr2", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "wmr2"}],
  SequenceForm["IE", $CellContext`cmr2, "DV", $CellContext`wmr2],
  Editable->False]], "Print",
 CellChangeTimes->{3.6698035252466464`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr2", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "cmr2"}],
  SequenceForm["IE", $CellContext`cmr2, "DV", $CellContext`cmr2],
  Editable->False]], "Print",
 CellChangeTimes->{3.6698035252486477`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr2", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "Zcmr2"}],
  SequenceForm["IE", $CellContext`cmr2, "DV", $CellContext`Zcmr2],
  Editable->False]], "Print",
 CellChangeTimes->{3.6698035252506495`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr2", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "eqInertiamr2"}],
  SequenceForm["IE", $CellContext`cmr2, "DV", $CellContext`eqInertiamr2],
  Editable->False]], "Print",
 CellChangeTimes->{3.6698035252526503`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr1f", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "Ks"}],
  SequenceForm["IE", $CellContext`cmr1f, "DV", $CellContext`Ks],
  Editable->False]], "Print",
 CellChangeTimes->{3.669803525254652*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr1f", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "alpha"}],
  SequenceForm["IE", $CellContext`cmr1f, "DV", $CellContext`alpha],
  Editable->False]], "Print",
 CellChangeTimes->{3.6698035252556543`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr1f", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "tormr1"}],
  SequenceForm["IE", $CellContext`cmr1f, "DV", $CellContext`tormr1],
  Editable->False]], "Print",
 CellChangeTimes->{3.669803525257654*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr1f", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "thetamr1"}],
  SequenceForm["IE", $CellContext`cmr1f, "DV", $CellContext`thetamr1],
  Editable->False]], "Print",
 CellChangeTimes->{3.669803525259656*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr1f", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "wmr1"}],
  SequenceForm["IE", $CellContext`cmr1f, "DV", $CellContext`wmr1],
  Editable->False]], "Print",
 CellChangeTimes->{3.6698035252616568`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr1f", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "cmr1"}],
  SequenceForm["IE", $CellContext`cmr1f, "DV", $CellContext`cmr1],
  Editable->False]], "Print",
 CellChangeTimes->{3.6698035252636585`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr1f", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "Zcmr1"}],
  SequenceForm["IE", $CellContext`cmr1f, "DV", $CellContext`Zcmr1],
  Editable->False]], "Print",
 CellChangeTimes->{3.6698035252656603`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr1f", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "eqInertiamr1"}],
  SequenceForm["IE", $CellContext`cmr1f, "DV", $CellContext`eqInertiamr1],
  Editable->False]], "Print",
 CellChangeTimes->{3.669803525267663*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr1f", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "tormr2"}],
  SequenceForm["IE", $CellContext`cmr1f, "DV", $CellContext`tormr2],
  Editable->False]], "Print",
 CellChangeTimes->{3.6698035252696815`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr1f", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "thetamr2"}],
  SequenceForm["IE", $CellContext`cmr1f, "DV", $CellContext`thetamr2],
  Editable->False]], "Print",
 CellChangeTimes->{3.669803525272665*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr1f", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "wmr2"}],
  SequenceForm["IE", $CellContext`cmr1f, "DV", $CellContext`wmr2],
  Editable->False]], "Print",
 CellChangeTimes->{3.6698035252746673`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr1f", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "cmr2"}],
  SequenceForm["IE", $CellContext`cmr1f, "DV", $CellContext`cmr2],
  Editable->False]], "Print",
 CellChangeTimes->{3.6698035252766676`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr1f", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "Zcmr2"}],
  SequenceForm["IE", $CellContext`cmr1f, "DV", $CellContext`Zcmr2],
  Editable->False]], "Print",
 CellChangeTimes->{3.6698035252786703`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr1f", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "eqInertiamr2"}],
  SequenceForm["IE", $CellContext`cmr1f, "DV", $CellContext`eqInertiamr2],
  Editable->False]], "Print",
 CellChangeTimes->{3.669803525280671*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr2f", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "Ks"}],
  SequenceForm["IE", $CellContext`cmr2f, "DV", $CellContext`Ks],
  Editable->False]], "Print",
 CellChangeTimes->{3.669803525283673*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr2f", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "alpha"}],
  SequenceForm["IE", $CellContext`cmr2f, "DV", $CellContext`alpha],
  Editable->False]], "Print",
 CellChangeTimes->{3.669803525285674*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr2f", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "tormr1"}],
  SequenceForm["IE", $CellContext`cmr2f, "DV", $CellContext`tormr1],
  Editable->False]], "Print",
 CellChangeTimes->{3.669803525287676*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr2f", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "thetamr1"}],
  SequenceForm["IE", $CellContext`cmr2f, "DV", $CellContext`thetamr1],
  Editable->False]], "Print",
 CellChangeTimes->{3.6698035252896776`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr2f", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "wmr1"}],
  SequenceForm["IE", $CellContext`cmr2f, "DV", $CellContext`wmr1],
  Editable->False]], "Print",
 CellChangeTimes->{3.6698035252926793`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr2f", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "cmr1"}],
  SequenceForm["IE", $CellContext`cmr2f, "DV", $CellContext`cmr1],
  Editable->False]], "Print",
 CellChangeTimes->{3.669803525294702*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr2f", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "Zcmr1"}],
  SequenceForm["IE", $CellContext`cmr2f, "DV", $CellContext`Zcmr1],
  Editable->False]], "Print",
 CellChangeTimes->{3.669803525296682*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr2f", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "eqInertiamr1"}],
  SequenceForm["IE", $CellContext`cmr2f, "DV", $CellContext`eqInertiamr1],
  Editable->False]], "Print",
 CellChangeTimes->{3.669803525298685*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr2f", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "tormr2"}],
  SequenceForm["IE", $CellContext`cmr2f, "DV", $CellContext`tormr2],
  Editable->False]], "Print",
 CellChangeTimes->{3.669803525300706*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr2f", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "thetamr2"}],
  SequenceForm["IE", $CellContext`cmr2f, "DV", $CellContext`thetamr2],
  Editable->False]], "Print",
 CellChangeTimes->{3.6698035253026876`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr2f", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "wmr2"}],
  SequenceForm["IE", $CellContext`cmr2f, "DV", $CellContext`wmr2],
  Editable->False]], "Print",
 CellChangeTimes->{3.6698035253046875`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr2f", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "cmr2"}],
  SequenceForm["IE", $CellContext`cmr2f, "DV", $CellContext`cmr2],
  Editable->False]], "Print",
 CellChangeTimes->{3.669803525306689*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr2f", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "Zcmr2"}],
  SequenceForm["IE", $CellContext`cmr2f, "DV", $CellContext`Zcmr2],
  Editable->False]], "Print",
 CellChangeTimes->{3.669803525308691*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr2f", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "eqInertiamr2"}],
  SequenceForm["IE", $CellContext`cmr2f, "DV", $CellContext`eqInertiamr2],
  Editable->False]], "Print",
 CellChangeTimes->{3.669803525311693*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"IE\"\>", "\[InvisibleSpace]", "cmr2f", 
   "\[InvisibleSpace]", "\<\"DV\"\>", "\[InvisibleSpace]", "cmr1f"}],
  SequenceForm["IE", $CellContext`cmr2f, "DV", $CellContext`cmr1f],
  Editable->False]], "Print",
 CellChangeTimes->{3.669803525314695*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "cntsList"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(\\*RowBox[{\\\"XMLElement\\\", \\\"[\\\", \
RowBox[{\\\"\\\\\\\"modelobject\\\\\\\"\\\", \\\",\\\", RowBox[{\\\"\
\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\",\\\", \
RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"XMLElement\\\", \\\"[\\\", \
RowBox[{\\\"\\\\\\\"icon\\\\\\\"\\\", \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{RowBox[{\\\"\\\\\\\"isopath\\\\\\\"\\\", \\\"\[Rule]\\\", \
\\\"\\\\\\\"MechanicRotShaft.svg\\\\\\\"\\\"}], \\\",\\\", RowBox[{\\\"\\\\\\\
\"iconrotation\\\\\\\"\\\", \\\"\[Rule]\\\", \\\"\\\\\\\"ON\\\\\\\"\\\"}], \\\
\",\\\", RowBox[{\\\"\\\\\\\"userpath\\\\\\\"\\\", \\\"\[Rule]\\\", \
\\\"\\\\\\\"MechanicRotShaft.svg\\\\\\\"\\\"}]}], \\\"}\\\"}], \\\",\\\", \
RowBox[{\\\"{\\\", \\\"}\\\"}]}], \\\"]\\\"}], \\\",\\\", \
RowBox[{\\\"XMLElement\\\", \\\"[\\\", \
RowBox[{\\\"\\\\\\\"portpositions\\\\\\\"\\\", \\\",\\\", RowBox[{\\\"\
\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\",\\\", \
RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"XMLElement\\\", \\\"[\\\", \
RowBox[{\\\"\\\\\\\"portpose\\\\\\\"\\\", \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{RowBox[{\\\"\\\\\\\"x\\\\\\\"\\\", \\\"\[Rule]\\\", \\\"\\\\\\\"0\\\\\
\\\"\\\"}], \\\",\\\", RowBox[{\\\"\\\\\\\"y\\\\\\\"\\\", \\\"\[Rule]\\\", \\\
\"0.3333333333333333`\\\"}], \\\",\\\", RowBox[{\\\"\\\\\\\"a\\\\\\\"\\\", \\\
\"\[Rule]\\\", \\\"\\\\\\\"0\\\\\\\"\\\"}], \\\",\\\", \
RowBox[{\\\"\\\\\\\"name\\\\\\\"\\\", \\\"\[Rule]\\\", \\\"\\\\\\\"Pmr1\\\\\\\
\"\\\"}]}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \\\"}\\\"}]}], \\\"]\\\
\"}], \\\",\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\
\[RightSkeleton]\\\"}]}], \\\"}\\\"}]}], \\\"]\\\"}]}], \\\"}\\\"}]}], \
\\\"]\\\"}]\\)\[NoBreak] in \[NoBreak]\\!\\(\\*RowBox[{\\\"XMLElement\\\", \\\
\"[\\\", RowBox[{\\\"\\\\\\\"hopsanobjectappearance\\\\\\\"\\\", \\\",\\\", \
RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\",\
\\\", RowBox[{\\\"XMLElement\\\", \\\"[\\\", \
RowBox[{\\\"\\\\\\\"modelobject\\\\\\\"\\\", \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{RowBox[{RowBox[{\\\"\\\\\\\"t\\\\\\\"\\\", \\\"\[Ellipsis]\\\", \
\\\"\\\\\\\"me\\\\\\\"\\\"}], \\\"\[Rule]\\\", RowBox[{\\\"\\\\\\\"\\\\\\\"\\\
\", \\\"\[Ellipsis]\\\", \\\"\\\\\\\"\\\\\\\"\\\"}]}], \\\",\\\", \
RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \
\\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{RowBox[{\\\"XMLElement\\\", \\\"[\\\", RowBox[{\\\"\\\\\\\"icon\\\\\\\
\"\\\", \\\",\\\", RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"\\\\\\\"isopath\\\\\
\\\"\\\", \\\"\[Rule]\\\", \\\"\\\\\\\"MechanicRotShaft.svg\\\\\\\"\\\"}], \\\
\",\\\", RowBox[{\\\"\\\\\\\"iconrotation\\\\\\\"\\\", \\\"\[Rule]\\\", \
\\\"\\\\\\\"ON\\\\\\\"\\\"}], \\\",\\\", RowBox[{\\\"\\\\\\\"userpath\\\\\\\"\
\\\", \\\"\[Rule]\\\", \\\"\\\\\\\"MechanicRotShaft.svg\\\\\\\"\\\"}]}], \
\\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \\\"}\\\"}]}], \\\"]\\\"}], \
\\\",\\\", RowBox[{\\\"XMLElement\\\", \\\"[\\\", \
RowBox[{\\\"\\\\\\\"portpositions\\\\\\\"\\\", \\\",\\\", RowBox[{\\\"{\\\", \
\\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{RowBox[{\\\"XMLElement\\\", \\\"[\\\", RowBox[{\\\"\\\\\\\"portpose\\\
\\\\\"\\\", \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\
\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"}\\\"}], \\\",\\\", \
RowBox[{\\\"{\\\", \\\"}\\\"}]}], \\\"]\\\"}], \\\",\\\", RowBox[{\\\"\
\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \\\"}\\\"}]}], \
\\\"]\\\"}]}], \\\"}\\\"}]}], \\\"]\\\"}]}], \\\"]\\\"}]\\)\[NoBreak] is not \
a list of contents. The third item in an XMLElement must be a list of \
contents, even if it is an empty list. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::cntsList\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6387789506297092`*^9, 3.6387791292055655`*^9, 
  3.638786040881683*^9, 3.6439534259272976`*^9, 3.643959123895553*^9, 
  3.6698035253176975`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6387789506297092`*^9, 3.6387791292055655`*^9, 
  3.638786040881683*^9, 3.6439534259272976`*^9, 3.643959123895553*^9, 
  3.669803525388749*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], 
  RowBox[{
  ":", " "}], \
"\<\"\[NoBreak]\\!\\(\\*RowBox[{\\\"0.3333333333333333`\\\"}]\\)\[NoBreak] in \
\[NoBreak]\\!\\(\\*RowBox[{\\\"\\\\\\\"y\\\\\\\"\\\", \\\"\[Rule]\\\", \
\\\"0.3333333333333333`\\\"}]\\)\[NoBreak] is not a valid value for an \
attribute in an XMLElement. The value of the attribute must be a string. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6387789506297092`*^9, 3.6387791292055655`*^9, 
  3.638786040881683*^9, 3.6439534259272976`*^9, 3.643959123895553*^9, 
  3.669803525453796*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6387789506297092`*^9, 3.6387791292055655`*^9, 
  3.638786040881683*^9, 3.6439534259272976`*^9, 3.643959123895553*^9, 
  3.6698035255208435`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], 
  RowBox[{
  ":", " "}], \
"\<\"\[NoBreak]\\!\\(\\*RowBox[{\\\"0.6666666666666666`\\\"}]\\)\[NoBreak] in \
\[NoBreak]\\!\\(\\*RowBox[{\\\"\\\\\\\"y\\\\\\\"\\\", \\\"\[Rule]\\\", \
\\\"0.6666666666666666`\\\"}]\\)\[NoBreak] is not a valid value for an \
attribute in an XMLElement. The value of the attribute must be a string. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6387789506297092`*^9, 3.6387791292055655`*^9, 
  3.638786040881683*^9, 3.6439534259272976`*^9, 3.643959123895553*^9, 
  3.6698035255878916`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6387789506297092`*^9, 3.6387791292055655`*^9, 
  3.638786040881683*^9, 3.6439534259272976`*^9, 3.643959123895553*^9, 
  3.669803525655939*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \
\[NoBreak]\\!\\(\\*StyleBox[RowBox[{\\\"Export\\\", \\\"::\\\", \\\"autofix\\\
\"}], \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6387789506297092`*^9, 3.6387791292055655`*^9, 
  3.638786040881683*^9, 3.6439534259272976`*^9, 3.643959123895553*^9, 
  3.6698035257041054`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Ks", "=."}], ";", 
  RowBox[{"Zexpr", "=."}], ";"}]], "Input",
 CellChangeTimes->{{3.6387861402276163`*^9, 3.638786154276021*^9}}]
}, Open  ]]
},
WindowSize->{750, 738},
WindowMargins->{{Automatic, 458}, {Automatic, -1016}},
Magnification->1.100000023841858,
FrontEndVersion->"10.3 for Microsoft Windows (64-bit) (October 9, 2015)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 89, 1, 78, "Section"],
Cell[671, 25, 248, 4, 32, "Input"],
Cell[922, 31, 848, 16, 53, "Input"],
Cell[1773, 49, 2443, 34, 82, "Text"],
Cell[CellGroupData[{
Cell[4241, 87, 1589, 34, 213, "Input"],
Cell[5833, 123, 353, 7, 33, "Output"]
}, Open  ]],
Cell[6201, 133, 845, 18, 93, "Input"],
Cell[7049, 153, 406, 10, 75, "Input"],
Cell[7458, 165, 745, 16, 133, "Input"],
Cell[8206, 183, 226, 7, 73, "Text"],
Cell[8435, 192, 595, 13, 73, "Input"],
Cell[9033, 207, 1227, 24, 93, "Input"],
Cell[10263, 233, 1790, 36, 173, "Input"],
Cell[CellGroupData[{
Cell[12078, 273, 63, 1, 32, "Input"],
Cell[CellGroupData[{
Cell[12166, 278, 290, 6, 24, "Print"],
Cell[12459, 286, 298, 6, 24, "Print"],
Cell[12760, 294, 300, 6, 24, "Print"],
Cell[13063, 302, 304, 6, 24, "Print"],
Cell[13370, 310, 296, 6, 24, "Print"],
Cell[13669, 318, 294, 6, 24, "Print"],
Cell[13966, 326, 296, 6, 24, "Print"],
Cell[14265, 334, 309, 6, 24, "Print"],
Cell[14577, 342, 300, 6, 24, "Print"],
Cell[14880, 350, 302, 6, 24, "Print"],
Cell[15185, 358, 294, 6, 24, "Print"],
Cell[15482, 366, 294, 6, 24, "Print"],
Cell[15779, 374, 298, 6, 24, "Print"],
Cell[16080, 382, 310, 6, 24, "Print"],
Cell[16393, 390, 290, 6, 24, "Print"],
Cell[16686, 398, 298, 6, 24, "Print"],
Cell[16987, 406, 300, 6, 24, "Print"],
Cell[17290, 414, 304, 6, 24, "Print"],
Cell[17597, 422, 294, 6, 24, "Print"],
Cell[17894, 430, 296, 6, 24, "Print"],
Cell[18193, 438, 298, 6, 24, "Print"],
Cell[18494, 446, 310, 6, 24, "Print"],
Cell[18807, 454, 298, 6, 24, "Print"],
Cell[19108, 462, 304, 6, 24, "Print"],
Cell[19415, 470, 296, 6, 24, "Print"],
Cell[19714, 478, 296, 6, 24, "Print"],
Cell[20013, 486, 298, 6, 24, "Print"],
Cell[20314, 494, 312, 6, 24, "Print"],
Cell[20629, 502, 292, 6, 24, "Print"],
Cell[20924, 510, 300, 6, 24, "Print"],
Cell[21227, 518, 300, 6, 24, "Print"],
Cell[21530, 526, 304, 6, 24, "Print"],
Cell[21837, 534, 298, 6, 24, "Print"],
Cell[22138, 542, 298, 6, 24, "Print"],
Cell[22439, 550, 300, 6, 24, "Print"],
Cell[22742, 558, 312, 6, 24, "Print"],
Cell[23057, 566, 302, 6, 24, "Print"],
Cell[23362, 574, 304, 6, 24, "Print"],
Cell[23669, 582, 298, 6, 24, "Print"],
Cell[23970, 590, 298, 6, 24, "Print"],
Cell[24271, 598, 300, 6, 24, "Print"],
Cell[24574, 606, 312, 6, 24, "Print"],
Cell[24889, 614, 292, 6, 24, "Print"],
Cell[25184, 622, 298, 6, 24, "Print"],
Cell[25485, 630, 300, 6, 24, "Print"],
Cell[25788, 638, 306, 6, 24, "Print"],
Cell[26097, 646, 298, 6, 24, "Print"],
Cell[26398, 654, 296, 6, 24, "Print"],
Cell[26697, 662, 298, 6, 24, "Print"],
Cell[26998, 670, 312, 6, 24, "Print"],
Cell[27313, 678, 300, 6, 24, "Print"],
Cell[27616, 686, 306, 6, 24, "Print"],
Cell[27925, 694, 298, 6, 24, "Print"],
Cell[28226, 702, 296, 6, 24, "Print"],
Cell[28525, 710, 298, 6, 24, "Print"],
Cell[28826, 718, 312, 6, 24, "Print"],
Cell[29141, 726, 298, 6, 24, "Print"]
}, Open  ]],
Cell[29454, 735, 4178, 62, 195, "Message"],
Cell[33635, 799, 580, 12, 23, "Message"],
Cell[34218, 813, 797, 15, 43, "Message"],
Cell[35018, 830, 582, 12, 23, "Message"],
Cell[35603, 844, 799, 15, 43, "Message"],
Cell[36405, 861, 580, 12, 23, "Message"],
Cell[36988, 875, 688, 14, 23, "Message"]
}, Open  ]],
Cell[37691, 892, 165, 4, 32, "Input"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
